home *** CD-ROM | disk | FTP | other *** search
/ The Pacifier Press Kit / The Pacifier Press Kit.iso / pc / Program.dxr / Internal_21_Megabyte Counter.ls < prev    next >
Encoding:
Text File  |  2005-02-15  |  2.9 KB  |  91 lines
  1. global gPhotolist, gImages, gMegs
  2.  
  3. on megaHandler
  4.   sort(gPhotolist)
  5.   gMegs = 0
  6.   repeat with m = 1 to gPhotolist.count
  7.     megaSize = getAt(gPhotolist, m)
  8.     case megaSize of
  9.       "C01":
  10.         gMegs = gMegs + 19.30000000000000071
  11.       "C02":
  12.         gMegs = gMegs + 26.89999999999999858
  13.       "C03":
  14.         gMegs = gMegs + 20.19999999999999929
  15.       "C04":
  16.         gMegs = gMegs + 28.0
  17.       "C05":
  18.         gMegs = gMegs + 25.10000000000000142
  19.       "C06":
  20.         gMegs = gMegs + 18.10000000000000142
  21.       "C07":
  22.         gMegs = gMegs + 26.5
  23.       "C08":
  24.         gMegs = gMegs + 7.29999999999999982
  25.       "C09":
  26.         gMegs = gMegs + 5.90000000000000036
  27.       "C10":
  28.         gMegs = gMegs + 7.0
  29.       "C11":
  30.         gMegs = gMegs + 6.90000000000000036
  31.       "C12":
  32.         gMegs = gMegs + 6.79999999999999982
  33.       "C13":
  34.         gMegs = gMegs + 7.0
  35.       "C14":
  36.         gMegs = gMegs + 6.79999999999999982
  37.       "C15":
  38.         gMegs = gMegs + 5.5
  39.       "C16":
  40.         gMegs = gMegs + 7.29999999999999982
  41.       "C17":
  42.         gMegs = gMegs + 5.79999999999999982
  43.       "C18":
  44.         gMegs = gMegs + 5.59999999999999964
  45.       "C19":
  46.         gMegs = gMegs + 7.0
  47.       "C20":
  48.         gMegs = gMegs + 6.40000000000000036
  49.       "C21":
  50.         gMegs = gMegs + 7.59999999999999964
  51.       "C22":
  52.         gMegs = gMegs + 7.40000000000000036
  53.       "C23":
  54.         gMegs = gMegs + 7.70000000000000018
  55.       "C24":
  56.         gMegs = gMegs + 6.79999999999999982
  57.       "C25":
  58.         gMegs = gMegs + 8.40000000000000036
  59.       "C26":
  60.         gMegs = gMegs + 6.59999999999999964
  61.       "C27":
  62.         gMegs = gMegs + 29.30000000000000071
  63.       "C28":
  64.         gMegs = gMegs + 16.0
  65.       "C29":
  66.         gMegs = gMegs + 7.0
  67.       "C30":
  68.         gMegs = gMegs + 6.51999999999999957
  69.       "C31":
  70.         gMegs = gMegs + 27.0
  71.       "CTT01":
  72.         gMegs = gMegs + 6.29999999999999982
  73.       "CTT02":
  74.         gMegs = gMegs + 21.19999999999999929
  75.       "CTT03":
  76.         gMegs = gMegs + 19.80000000000000071
  77.     end case
  78.   end repeat
  79.   gImages = gPhotolist.count
  80.   if gImages = 1 then
  81.     put "You have selected " & gImages & " item, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'The Pacifier Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  82.   else
  83.     put "You have selected " & gImages & " items, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'The Pacifier Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  84.   end if
  85. end
  86.  
  87. on exitFrame
  88.   megaHandler()
  89.   go(the frame)
  90. end
  91.